Imports System.Runtime.Serialization

<DataContract()> _
Public Class Rank

    Private _RankId As Guid = Guid.Empty
    Private _Name As String = ""
    Private _Abbreviation As String = ""
    Private _TCSRank As String = ""
    Private _KnownAbbreviations As String = ""
    Private _Sort As Integer = -1
    Private _ChangeDate As DateTime = DateTime.MinValue
    Private _ChangeUser As String = ""

    <DataMember()> _
    Public Property RankId() As Guid
        Get
            Return _RankId
        End Get
        Set(ByVal value As Guid)
            _RankId = value
        End Set
    End Property

    <DataMember()> _
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    <DataMember()> _
    Public Property Abbreviation() As String
        Get
            Return _Abbreviation
        End Get
        Set(ByVal value As String)
            _Abbreviation = value
        End Set
    End Property

    <DataMember()> _
    Public Property TCSRank() As String
        Get
            Return _TCSRank
        End Get
        Set(ByVal value As String)
            _TCSRank = value
        End Set
    End Property

    <DataMember()> _
    Public Property KnownAbbreviations() As String
        Get
            Return _KnownAbbreviations
        End Get
        Set(ByVal value As String)
            _KnownAbbreviations = value
        End Set
    End Property

    <DataMember()> _
    Public Property Sort() As Integer
        Get
            Return _Sort
        End Get
        Set(ByVal value As Integer)
            _Sort = value
        End Set
    End Property

    <DataMember()> _
    Public Property ChangeDate() As DateTime
        Get
            Return _ChangeDate
        End Get
        Set(ByVal value As DateTime)
            _ChangeDate = value
        End Set
    End Property

    <DataMember()> _
    Public Property ChangeUser() As String
        Get
            Return _ChangeUser
        End Get
        Set(ByVal value As String)
            _ChangeUser = value
        End Set
    End Property

End Class
